home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
U-Utilities
/
(c)u1.d64
/
pcb printer.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
458b
|
13 lines
100 REM PROGRAMMABLE CHARACTER BOX PRINTER BY WIM
110 FORX=1TO7:READB$(X):NEXTX:DATA64,32,16,08,04,02,01
120 OPEN4,4:PRINT#4,CHR$(1)" PROGRAMMABLE CHARACTER CHARTS":PRINT#4:PRINT#4
130 OPEN6,4,6:PRINT#6,CHR$(22)
140 FORT=1TO5:FORI=1TO7
150 FORXX=1TO4:PRINT#4,B$(I);" [207][163][207][163][207][163][207][163][207][163][207][208] ";:NEXTXX:PRINT#4,CHR$(141)
160 FORXX=1TO4:PRINT#4," [204][164][204][164][204][164][204][164][204][164][204][186] ";:NEXTXX:PRINT#4,CHR$(141)
170 NEXT:PRINT#4:PRINT#4,SPC(4);:FORXX=1TO4
180 PRINT#4,CHR$(34);" ";CHR$(34);" ";CHR$(34);" ";CHR$(34);" ";
190 PRINT#4,CHR$(34);" ";CHR$(34);SPC(7);:NEXTXX
200 FORI=1TO5:PRINT#4:NEXTI,T
210 PRINT#6,CHR$(36):CLOSE6:CLOSE4